Assignment-01

parking_plot <- ggplot(commercialparking) +
  geom_sf(shape = 20, color = "#CC0066", size = 3)
parking_plot +
  geom_sf(data = meters) +
  geom_sf(data = openspace)

#changing symbology

parking_plot <- ggplot(commercialparking) +
  geom_sf(shape = 20, color = "blue", size = 4)
parking_plot +
  geom_sf(data = meters, color = "darkorange") +
  geom_sf(data = openspace, fill = "forestgreen", color = NA)

#changing symbology again

ggplot() +
  
ggtitle("Cambridge Park(ing)") +
  
#BASE MAP
    annotation_map_tile(
    zoomin = 0, 
    progress = "none", 
    type = "cartolight") +
    geom_sf() +
    labs(caption = "Map tiles and data by OpenStreetMap") +
  
#DATA 
   geom_sf(
    data = openspace, 
    color = NA, 
    aes(fill = "Open Space")
    ) +
  geom_sf(
    data = meters, 
    fill = "darkorange",
    aes(color = "Parking Meters")
    ) +
  geom_sf(
    data = commercialparking, 
    shape = 20, 
    size = 3, 
    fill = NA,
    aes(color = "Commercial Parking")
    ) +
  
  scale_color_manual(values = c("blue", "darkorange"), name = "") +
  scale_fill_manual(values = "forestgreen", name = "") +
  
  theme_void()

#changing symbology again

ggplot() +
  
ggtitle("Cambridge Park(ing)") +
  
#BASE MAP
    annotation_map_tile(
    zoomin = 0, 
    progress = "none", 
    type = "cartodark") +
    geom_sf() +
    labs(caption = "Map tiles and data by OpenStreetMap") +
  
#DATA 
   geom_sf(
    data = openspace, 
    color = NA, 
    aes(fill = "Open Space")
    ) +
  geom_sf(
    data = meters, 
    fill = NA,
    aes(color = "Parking Meters")
    ) +
  geom_sf(
    data = commercialparking, 
    shape = 20, 
    size = 3, 
    aes(color = "Commercial Parking")
    ) +
  scale_color_manual(values = c("deeppink", "darkviolet"), name = "") +
  scale_fill_manual(values = "chartreuse", name = "") +
  
  theme_void()

#changing symbology again

ggplot() +
  
ggtitle("Cambridge Park(ing)") +
  
#BASE MAP
    annotation_map_tile(
    zoomin = 0, 
    progress = "none", 
    type = "cartolight") +
    geom_sf() +
    labs(caption = "Map tiles and data by OpenStreetMap") +
  
#DATA 
   geom_sf(
    data = openspace, 
    color = NA, 
    alpha = 0.5,
    aes(fill = "Open Space")
    ) +
  geom_sf(
    data = meters, 
    fill = NA,
    shape = NA,
    aes(color = "Parking Meters")
    ) +
  geom_sf(
    data = commercialparking, 
    shape = 3, 
    size = 3, 
    fill = NA,
    aes(color = "Commercial Parking")
    ) +
  
  scale_color_manual(values = c("brown1", "brown3"), name = "") +
  scale_fill_manual(values = "forestgreen", name = "") +
  
  theme_void()

ggplot()+
 #TITLE + AXIS LABELS
        #TITLE
        ggtitle("CAMBRIDGE PARKING IN RELATION TO OPEN SPACE") +
        theme(
          plot.title = element_text(
            color="black", 
            size=10, 
            face="bold.italic", #FONT FACE OPTIONS = PLAIN, BOLD, BOLD.ITALIC, ITALIC
            hjust = 1))+ #adjust title to center it
            
        #X AXIS
        xlab("LONGITUDE") +
        theme(
          axis.title.x = element_text(size=8)) +
  
        #Y AXIS
        ylab("LATITUDE")+
        theme(
          axis.title.y = element_text(size=8)) +
  

  #BASE MAP
      annotation_map_tile(
        zoomin = 0, 
        progress = "none", 
        type = "cartolight") +
  
  #DATA
      #commercial parking
        geom_sf(
        data = commercialparking, 
        aes(fill="Commercial Parking Lots"), 
        alpha = .7, 
        color = "aquamarine"
        ) +
      #metered parking
      geom_sf(
        data = meters, 
        color = "black", 
        aes(fill="Metered Parking")
        ) +
      #open space
      geom_sf(
        data = openspace, 
        aes(fill="Parks"), 
        alpha = 0.25, 
        color = "tan",
        ) +
  
  #APPEARANCE
      #themes
      scale_fill_manual(values = c("aquamarine", "black", "tan"), name = "") +
      scale_color_manual(values = c("aquamarine", "black", "tan"), name = "") +
  
      #add a scale
      annotation_scale(
        pad_x = unit(8, "cm"),
        pad_y = unit(.5, "cm"),
        line_width = .125,
        height = unit(0.125, "cm"),
        text_pad = unit(0.15, "cm"),
        text_cex = 0.7,
        tick_height = 0.4) + 
  
      #add an arrow
      annotation_north_arrow(
        pad_x = unit(7, "cm"),
        pad_y = unit(.25, "cm"),
        height = unit(0.5, "cm"),
        width = unit(0.5, "cm"),
        
        #north arrow style
        style = north_arrow_orienteering(
          text_size = 1
          ))